$input = <STDIN>;

if( $input eq "perl"){
	print "1:input is perl"."\n";
}else{
	print "2:input is perl"."\\n"."\n";
}

chomp($input2 = <STDIN>);
if( $input2 eq "perl"){
	print "1:input is perl"."\n";
}else{
	print "2:input is perl"."\\n"."\n";
}
